home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / shared.dir / 07582_WIN_MPEG(new).ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  1.7 KB  |  109 lines
  1. on WIN_MPEG_Init
  2.   mci("capability can play device MpegVideo")
  3.   if the result = "true" then
  4.     set vRetValue to 1
  5.   else
  6.     set vRetValue to 0
  7.   end if
  8.   return vRetValue
  9. end
  10.  
  11. on WIN_MPEG_Done
  12. end
  13.  
  14. on WIN_MPEG_Use aFName
  15.   set vHWnd to gSIUtils(mGetNamedWindowHdl, "Stage")
  16.   mci("open " & aFName & ".mpg type MpegVideo alias dvvid")
  17.   mci("window dvvid handle " & vHWnd)
  18.   mci("set dvvid time format frames")
  19. end
  20.  
  21. on WIN_MPEG_Play aFrom, aTo
  22.   global gDVFullScreen
  23.   set vCmd to "play dvvid from " & aFrom
  24.   if aTo <> -1 then
  25.     set vCmd to vCmd & " to " & aTo
  26.   end if
  27.   mci(vCmd)
  28. end
  29.  
  30. on WIN_MPEG_Pause
  31.   mci("pause dvvid")
  32. end
  33.  
  34. on WIN_MPEG_PauseP
  35.   mci("status dvvid mode")
  36.   if the result = "paused" then
  37.     return 1
  38.   else
  39.     return 0
  40.   end if
  41. end
  42.  
  43. on WIN_MPEG_Stop
  44.   mci("stop dvvid")
  45. end
  46.  
  47. on WIN_MPEG_StopP
  48.   mci("status dvvid mode")
  49.   if the result = "Stopped" then
  50.     return 1
  51.   else
  52.     return 0
  53.   end if
  54. end
  55.  
  56. on WIN_MPEG_Resume
  57.   mci("resume dvvid")
  58. end
  59.  
  60. on WIN_MPEG_SetPos aPos
  61.   mci("seek dvvid to " & aPos)
  62. end
  63.  
  64. on WIN_MPEG_GetPos
  65.   mci("status dvvid position")
  66.   return value(the result)
  67. end
  68.  
  69. on WIN_MPEG_PlayP
  70.   mci("status dvvid mode")
  71.   if the result = "playing" then
  72.     return 1
  73.   else
  74.     return 0
  75.   end if
  76. end
  77.  
  78. on WIN_MPEG_SetPlayArea aX, aY, aW, aH
  79.   mci("put dvvid destination at " & aX & " " & aY & " " & aW & " " & aH)
  80. end
  81.  
  82. on WIN_MPEG_FullScreen aFlag
  83. end
  84.  
  85. on WIN_MPEG_FullScreenP
  86.   return 0
  87. end
  88.  
  89. on WIN_MPEG_FrameRate
  90.   mci("status dvvid nominal frame rate")
  91.   return value(the result) / 1000
  92. end
  93.  
  94. on WIN_MPEG_Close
  95.   mci("close dvvid")
  96. end
  97.  
  98. on WIN_MPEG_Idle
  99.   nothing()
  100. end
  101.  
  102. on WIN_MPEG_Show
  103.   mci("window dvvid state show")
  104. end
  105.  
  106. on WIN_MPEG_Hide
  107.   mci("window dvvid state hide")
  108. end
  109.